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Assumptions 
This   document   assumes    that   the   reader  has   some   familiarity  with 
ALGOL   and  a  rather   detailed  understanding  of  the  PDP-11   instruc- 
tion set. 

In  particular  with   regard  to  ALGOL,    it   is    assumed  for  the  pur- 
poses  of  this   document  that  the   reader  is  well   acquainted  with  the 
ALGOL    concepts    of  lexicographical   level,   the   recursive   relationship 
that  holds   between  statements    and  blocks ,    and  the   recursive   rela- 
tionship that  holds  between  primaries    and  expressions . 


Introduction 
PEESPOL ,    an  acronym  for  PDP  Eleven  Executive  System  Programming 
Oriented  Language,  was    designed  and  implemented  at   the   University 
of  Illinois    for  the   specific   application  of  writing  an  ARPA  Net 
Terminal  System  for  the  PDP-11.      The   general   idea  was   to   create 
a  higher  level   implementation  language   for  the  PDP-11.      This 
decision  was    doubtless   influenced  by  the   presence   of  much   experi- 
ence with  Burroughs   B5500   and  B65OO   systems,  both   of  whose   opera- 
ting systems    are  written  in  a  higher  level  implementation  language. 

PEESPOL    "looks    like"   ALGOL.      That   is,    it   is    a  block   structured 
language,   storage   is    allocated  via  declarations,    etc.      PEESPOL 
also   contains   PAL  Assembly  Language  statements    and  a  rather  power- 
ful macro   generator. 

PEESPOL   itself  is   a  Burroughs   B65OO  ALGOL  program   (a  version  also 
exists    for  the  B5500).      The   compiler   accepts    input   in  card-image 
format    and  creates    a  disk   file   containing  the   object   code.      No 
special   loader  is    required  to   load  the   object    code   into  the  PDP-11, 
the   code   file  being  a  byte-image   of  a  PDP-11  absolute   loader   input 
tape . 
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1.0  DATA  TYPES 

Only  two  data  types  exist  in  PEESPOL:   word  and  byte.   One  establishes 
symbolic  names  for  these  data  items  via  declarations.   Examples: 

WORD   A,  B,  C; 

BYTE   X,  Y; 
The  compiler  ensures  that  word  data  is  aligned  properly. 

One  may  also  declare  single  dimensional  arrays  of  these  data  types: 

WORD  ARRAY  XA[3l] ; 

BYTE  ARRAY   XB[26] ; 
XA  is  an  array  of  31  words  and  XB  is  an  array  of  26  bytes . 

Any  of  these  items  can  be  initialized  with  values  known  at  compile 
time  : 

WORD  A:  =  0,  B  :  =  1,  C  :  =  15; 

BYTE  ARRAY     BA    [l8]    :    =   0,    1,    "ABCDEF" ; 

The   compiler  arranges    for  the   proper  initializations   to 
occur   at    load  time . 

Additionally,    one  may  perform  address    equations   via  declarations. 
For  instance,    suppose   it   is    desired  to   access  word  A  as    a  byte  via 
a  variable  AB.      One  writes: 

BYTE      AB   =  A, 
This    declaration  allocates    no   storage,  but    forms    a  byte   variable 
whose   address    is   the   same   as   the    address    of  A. 


2.0  EXPRESSIONS 

Expressions  in  PEESPOL  follow  the  ALGOL  conventions  for  arithmetic 
expressions ,   Thus , 

A  +  B 
forms  the  sum  of  A  and  B. 

The  "arithmetic"  operators  are  extended  to  include  all  the  arithmetic 
and  logical  operators  of  PAL.   For  example: 

A  and  B 

ANDs  A  and  B  together 

ASL  A 
produces  a  value  equivalent  to  applying  the  ASL  instructions  to  A. 

Most  all  of  the  PAL  single  operand  instructions  can  be  used  as 
mnemonics  for  unwary  operators.   Examples: 

ASL  (  ROR  A  ) 

INC  (ASR  (  ASR  (  SWAB  B))) 
The  BIC  instruction  is  implemented  using  the  operator  mnemonic  MASK: 

Y  MASK  A 
would  generate  code  equivalent  to 

BIC  A,  X 
except  that  X  would  not  "be  modified  as  a  result  of  the  PEESPOL  con- 
struct . 

The  programmer  is  free  to  modify  the  access  techniques  used  by  the 
compiler,  viz.   The  compiler  will  access  word  data  using  word  instruc- 
tions and  byte  data  using  byte  instructions.   Sometimes,  however,  it 
is  convenient  to  be  able  to  access  a  word  as  a  byte.   Recalling  the 
example  declarations : 

WORD  A; 

BYTE  AB  =  A; 


The  following  two  expressions  are  equivalent: 

A  +  AB 

A  +    .A 
The  period  indicates   that   A  should  "be   accessed  as    a  byte   rather  than 
a  word. 

One  may  use   a  variable   as   the   address    of  another  variable  by  writing 
the  PAL-like    construct: 

@A 
However,   this    indirectness   is   not   restricted  to   only   one   level,   viz: 

@@@A 
would  generate   code   similar  to  this : 

MOV  @A,    R  A  @A 

MOV  @R,   R  @   @  A 

MOV  @R,  R  @  @  @  A 

"R"  now  contains  @  @  @  A. 

Array  accesses  are  similar  to  ALGOL: 

XA  [B] 
accesses  the  Bth  word  of  XZ. 

XB  [B] 
accesses  the  Bth  byte  of  XB. 
And: 

XA  B 
accesses  the  Bth  byte  of  XA  as  a  word.   That  is,  a  subscript  enclosed 
in    ' s  is  always  a  byte  subscript.   If  a  word  array  is  subscripted 
that  way  it  is  assumed  that  the  subscript  will  be  even. 

The  first  element  of  an  array  has  subscript  0. 

Sometimes  it  is  convenient  to  manipulate  the  addresses  of  items  as 
arithmetic  quantities.   In  PEESPOL  this  is  easily  accomplished  by 
enclosing  a  variable  in  [  ]'s. 
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[  A  ] 

[  XA[B]  ] 

[  "ABC"  ] 


The  address  of  A. 

The  address  of  the  Bth  element  of  array  XA 
The  address  of  a  data  area  containing  the 
ASCII  string  "ABC". 


There  exist  more  complex  forms  of  arithmetic  expressions.   Examples: 
IF  CONDITIONAL  THEN  A  ELSE  B  +  1  FI  results  in  either  A 

or  B  +  1  depending  on  the  truth  value  of  conditional. 
CASE  A  OF  B,  B+A,  A  +  1  ESAC 

Selects  one  of  three  expression  values  (numbered  from  zero).   If  A 

is  not  0,  1  or  2  PEESPOL  generates  a  trap  instruction.   If  one  writes 
CASE  AOFB,  B+A,  A  +  1  ELSE  A  -  2  ESAC 

then  the  value  is  A  -  2  if  A  is  not  0,  1  or  2. 


One  may  embed  assignments  in  expressions: 

A  +  (B  :  =  XA  [  I  ]  MASK  C  )  OR  X 
The  sub -express ion  XA[l]  MASK  C  is  computed  and  then  stored  into  B. 
The  compiled  code  for  this  expression  would  be: 


MOV  A,  R0 
MOV  I,  Rl 
ASL  Rl 

MOV  XA  (Rl),  Rl 
BIC  C,  Rl 
MOV  Rl,  B 
ADD  Rl,  R0 
MOVB  X,  Rl 
BIS  Rl,  R0 


GET  A 

GET  SUBSCRIPT:   I 

MAKE  IT  WORD 
;  GET  XA  [i] 
;  MASK  WITH  C 

STORE  INTO  B 
;  ADD  IN  A 

GET  X  WITH  SIGN  EXTENSION 

OR  IT  IN 


3.0  ASSIGNMENT  STATEMENTS 

The  assignment  operators  are  :  =  and  :-.   The  first  assigns  what  is 
appropriate  for  the  left  hand  side,  i.e.,  a  word  if  the  LHS  is  word 
data  and  a  byte  if  the  LHS  is  byte  data.   The  second  (  :-  )  stores  a 
byte .   Thus  , 

A  :  =  1  ; 
sets  A  to  1,  but 

A  :  -  1  ; 
sets  only  the  low  order  byte  of  A  to  1. 

Another  useful  form  of  the  assignment  operator  is  this: 

XA  [I  +  1]  :  =  *  +  B 
This  is  the  same  as  writing 

XA  [I  +  1]  :  =  XA  [I  +  1]  +  B 
except  that  the  first  case  computes  the  address  of  XA  [I  +  l]  only 
once.   The  following  compiled  code  illustrates  this  construct: 

XA  [I  +  1]  :  =  *  +  B  ; 

MOV  I,  R0  ;  GET  THE 

ADD  #1,  R0  ,  SUBSCRIPT 

ASL  R0  ;  AND  WORD  ALIGN 

MOV  XA  (R0)  ,  Rl     ;  ACCESS  A  [I  +  l] 

ADD  B,  Rl  ;  ADD  IN  B 

MOV  Rl,  XA  (R0)      ;  STORE  IN  A  [i  +  l] 

The  left  hand  side  of  an  assignment  need  not  be  only  a  variable.   It 
is  possible  to  write  an  expression  on  the  left  hand  side  which  com- 
putes the  address  into  which  the  right  hand  side  value  is  to  be  stored, 
Example : 

<  [XA]  +  ASL  (l+l)>:=*+B; 
The  LHS  expression  is  enclosed  in  <>'s.   The  code  generated  by  this 
example  is  similar  and  equivalent  to  the  code  in  the  previous  example: 


GET  [XA] 

GET  THE 

SUBSCRIPT 

AND  SHIFT  LEFT 

RO  HAS  LHS  ADDRESS 

Rl  HAS  ITS  VALUE 

ADD  IN  B 

AND  STORE 

The  second  example  contains  one  more  word  of  code  than  the  first  and 
executes  3.7  ys  longer.   The  results  are  the  same. 


MOV  #XA,  RO 
MOV  I,  Rl 
ADD  #1,  Rl 
ASL  Rl 
ADD  Rl,  RO 
MOV  @  RO,  Rl 
ADD  B,  Rl 
MOV  Rl,  @  RO 


k.O  IF  STATEMENTS  AND  CONDITIONAL  EXPRESSIONS 

PEESPOL  implements  conditionals  using  branch  logic.   Example: 
IF  A  LSS  B  THEN  SI 
ELSE  S2 
Fl; 
SI  is  executed  if  A  is  less  than  B,  if  not,  then  S2  is  executed. 

A  more  complex  conditional  might  be : 

IF  A  LSS  B  ANDIF  B  GEQ  C  ORIF  A  EQL  C 
THEN  SI  ELSE  S2  FI , 
The  "ANDIF"  and  "ORIF"  serve  the  same  function  as  "AND"  and  "OR"  in 
ALGOL  BOOLEAN  expressions  except  that  here  they  denote  branch  logic 
instead  of  BOOLEAN  operations .   The  branch  logic  is  such  that  control 
transfers  to  the  proper  alternative  at  the  earliest  possible  stage  of 
evaluation  of  the  conditional.   A  "TRUTH  TABLE"  for  this  example  is: 

A  LSS  B B  GEQ  C A  EQL  C RESULT 

F  ELSE 

T  THEN 

F  ELSE 

T  THEN 

NOT  TESTED  THEN 

The  implementation  of  the  relations  involves  the  use  of  the  CMP 
instruction  to  set  the  condition  codes.   With  parallel  syntax,  it  is 
possible  to  perform  tests  that  use  the  TST  instruction  instead,  viz. 

IF  LSS  (X  +  Y)  THEN  

Here  the  test   is    for  less   than   zero. 

Likewise,    a  form  exists   which   results   merely   in  PEESPOL's    genera- 
ting  conditional  branches    on  previously   set   condition   codes.      Example: 

IF   LSS   THEN    

tests    the   existing  state   of  the   condition   codes    for  the   LSS    condition. 


F 

NOT   TESTED 

F 

n 

T 

F 

T 

F 

T 

T 

Relational  operator  mnemonics  exist  correspondingly  to  each  conditional 
branch  instruction.   In  addition,  "byte  relationals  exist  in  order  to 
be  able  to  force  a  byte  compare  (CMPB)  or  test  (TSTB) : 

IF  A  GEQB  B  THEN  

compares  A  and  B  byte-wise. 


5.0  ITERATION  STATEMENTS 

The  simplest  form  of  iteration  statement  is  the  THRU  statement: 

THRU  N  D0  S  ; 
executes  statement  "S",  "N"  times. 

WHILE  CONDITIONAL  D0  S; 
is  equivalent  to: 

BEGIN  LABEL  L00PT0P  ; 
L00PT0P  : 

IF  CONDITIONAL  THEN 

ELSE  BEGIN  S  ;  GO  TO  LOOPTOP  END  FI 
END  ; 
That  is,  "S"  is  executed  until  the  conditional  becomes  true. 

Alternate  forms  of  the  while  and  until  statements  exist  which  yield 
a  minimum  execution  of  once  rather  than  none: 

D0  S  WHILE  CONDITIONAL  ; 

D0  S  UNTIL  CONDITIONAL  ; 
With  these  forms  the  test  occurs  at  the  end  of  the  loop  rather  than 
at  the  beginning. 


6.0  SCAN  AND  REPLACE  STATEMENTS 

These  statements  exist  for  the  purpose  of  scanning  and  moving  data 
iteratively.   For  example: 

SCAN  [XA]  WHILE  .  @  SOURCE  EQLB  "«-. "  ; 
scans  the  array  XA  for  blanks.   The  "SOURCE"  of  the  data  to  be  scanned 
is  indicated  by  the  expression  following  the  word  "SCAN".   The  expres- 
sion computes  the  address  of  the  source  data.   The  word  SOURCE  denotes 
a  register  which  contains  the  source  address.   This  address  is  incre- 
mented each  time  the  conditional  fails . 

Variants  exist  which  allow  the  final  source  address  to  be  retrieved 
and  to  impose  a  maximum  iteration  count  on  the  loop: 

SCAN  A  :  [XA]  FOR  16  BYTES  WHILE  .  @  SOURCE  EQLB  "  — "  ; 
In  this  case,  the  updated  source  address  will  be  stored  in  A  at  the 
termination  of  the  loop.   A  maximum  of  l6  iterations  will  be  performed 
and  the  increment  in  addressing  will  be  by  one,  i.e.,  byte  addressing. 

The  replace  statement  is  similar  to  the  scan  statement  only  in  this 
case  the  source  data  are  transferred  to  a  destination  area.   Example: 

REPLACE  [XA]  BY  [XB]  FOR  21  BYTES; 
XA  is  the  destination  and  XB  is  the  source.   21  bytes  are  moved  from 
XB  to  XA. 

REPLACE  A  :  [XA]  BY  B  :  [XB] 
FOR  21  BYTES 

WHILE  .  @  SOURCE  NEQB  .  %   DESTINATION; 
In  this  case,  the  updated  source  and  destination  addresses  are  saved  in 
B  and  A  respectively.   The  word  "DESTINATION"  is  similar  to  the  word 
"SOURCE"  in  meaning  only  it  denotes  a  register  containing  the  destina- 
tion address . 

The  word  "COUNT"  is  also  available.  It  denotes  a  register  which  con- 
tains the  decremented  value  of  the  maximum  iteration  count  imposed  on 
the  loop. 
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More  examples : 

REPLACE  [XA]  BY  "THIS  ASCII  STRING"  ; 
moves  the  ASCII  string  to  array  XA. 

REPLACE  A  +  2  BY  VALUE  (0)  FOR  l6  WORDS; 
moves  zeroes  to  the  memory  area  given  by  the  contents  of  A  plus  2. 

For  both  SCAN  and  REPLACE,  the  expressions  which  set  the  source, 
destination  and  count  are  arbitrary  arithmetic  expressions.   The 
conditional  is  the  same  conditional  that  is  used  for  IF-  statements, 
UNTIL-  statements,  etc. 


11 


7.0  PROGRAM  UNITS 

Aside  from  the  main  program,  there  are  several  different  kinds  of  pro- 
gram units  in  PEESPOL.   They  are:   PROCEDURE,  INTERRUPT,  ROUTINE  and 
SEGMENT. 

Procedures  are  similar  to  ALGOL  procedures  with  only  two  differences: 
l)  The  CALL-BY-NAME  is  restricted  to  something  that  might  be  called 
CALL-BY-ADDRESS  and  2)  GO  TOs  out  of  the  procedure  perform  NO  stack 
cleanup . 
Example : 

PROCEDURE  PRINTMESSAGE  (MESSAGEADR)  ; 

VALUE  MESSAGEADR; 

WORD  MESSAGEADR; 

D0  BEGIN 

WAITTILREADY  ( CONSOLEWRITESTATUS ) ; 
CONSOLEWRITEDATA:  -  .§   MESSAGEADR 

END 

UNTIL  .  @  (MESSAGEADR:  =  INC  MESSAGEADR)  EQLB  "."; 

PRINTMESSAGE  ([  "HELLO  OUT  THERE."]); 

Procedures  can  be  typed  (word  or  byte)  and  can  recurse.   All  storage 
local  to  the  procedure  is  allocated  in  the  stack;  thus  ,  new  copies 
are  obtained  at  each  level  or  recursion. 

Interrupts  are  declared  to  handle  hardware  interrupts .  The  declara- 
tion gives  the  location  of  the  trap  vector  which  will  be  initialized 
with  the  address  of  the  interrupt  code.   Example: 

INTERRUPT  DISKFINISH  [DISKTRAPLOC,  PRI0R6]; 
INTERRUPT  BODY 
DISKTRAPLOC  could  be  a  declared  word  address  equated  to  the  trap  vec- 
tor location  for  the  disk.   PRI0R6  could  be  a  macro  which  expands  to 
a  number  which  indicates  a  status  register  setting  corresponding  to  a 
processor  priority  of  6. 
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Like  procedures,  interrupts  allocate  their  local  storage  in  the  stack. 
Thus  the  same  interrupt  code  can  service  several  interrupts  at  differ- 
ent priorities . 
Example : 

INTERRUPT  CONSOLE  KEYBOARDTRAPLOC,  PRI0R5; 

PRINTERTRAPLOC,  PRI0R6 ; 
INTERRUPT  BODY 
In  this  case,  the  interrupt  body  can  tell  which  interrupt  it  is  handling 
by  examining  the  processor  status  (priority). 

Routines  are  parameterless ,  non  recursive  subprograms  with  a  simple 
entry /exit  protocol.   A  routine  may  be  typed  as  well. 
BYTE  ROUTINE  READCONSOLE; 
BEGIN 

WAITTILREADY  ( CONSOLEREADSTATUS ) ; 
READCONSOLE  :  -@  CONSOLEREADBUFFER ; 
INC  %   CONSOLEREADSTATUS 
END; 

X  :  -  READCONSOLE; 

Segments  are  units  of  program  for  which  no  entry /exit  protocol  is 
specified.   They  are  especially  useful  for  those  cases  in  which  the 
programmer  wishes  to  construct  a  "funny"  program  unit  with  macros , 
creating  his  own  entry/exit  protocol. 
Example : 

SEGMENT  S; 

SEGMENT  BODY 
The  programmer  may  "CALL"  a  Segment  by  writing  its  name  as  a  state- 
ment.  In  this  case  PEESPOL  generates  an  unconditional  branch  to  the 
segment,  i.e.,  no  return  linkage  is  established.   Furthermore,  if  a 
segment  attempts  to  exit,  a  trap  occurs. 
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CLOSING 
This   paper  is   a  brief  introduction  to  the  PEESPOL   language.      It   is 
necessarily   incomplete.      For   a  complete   description  of  the   language, 
including  the  macro   generator,   the   reader  is    referred  to    [...The 
Tome . . . ] . 

Included   for  the   reader's   perusal   are  two  appendices    containing 
PEESPOL  programs    reproduced  from  listings   of  compiler  output.      The 
programs    are  the   same:      one  shows   the   code   generated,   the   other   does 
not . 

Please   feel   free  to   direct    any   questions ,    comments    or   any   other   form 
of   communication  to: 

David  Grothe 

115  CAC  Building 

University  of  Illinois 

Urbana,    Illinois      6l801 

Phone:      21T-333-i+266 
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